home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / easyrcs_1.3 / arexx / globalsymbol.ercs < prev    next >
Text File  |  1996-09-09  |  1KB  |  64 lines
  1. /*  GlobalSymbol.ercs
  2.  *    Yann Muller © 1996
  3.  *    Version 1.0   ---  03/09/96
  4.  */
  5.  
  6. OPTIONS RESULTS
  7. OPTIONS FAILAT 11
  8. ADDRESS EASYRCS
  9.  
  10. 'askstring "Global symbol" Symbol'
  11.  
  12. if (RC == 0) then
  13. do
  14.     symb = RESULT
  15.  
  16.     'query showstate'
  17.     show_old = RESULT
  18.  
  19.     'show in'
  20.     'select top'
  21.     DO while RC == 0
  22.         /* symbol for each file */
  23.         'query filename'
  24.         file = RESULT
  25.         address command 'rcs:rcs -N'symb':' file
  26.         'select next'
  27.         END
  28.  
  29.     'show out'
  30.     'select top'
  31.     DO while RC == 0
  32.         /* symbol for each file */
  33.         'query filename'
  34.         file = RESULT
  35.         address command 'rcs:rcsdiff -q' file '>NIL:'
  36.         if (RC == 0) then do
  37.             /* file must be checked in */
  38.             'select next'
  39.             if (RC == 0) then do
  40.                 /* this is not the last file */
  41.                 'query filename'
  42.                 file = RESULT
  43.                 'select prev'
  44.                 'checkin open'
  45.                 address command 'rcs:rcs -N'symb':' file
  46.                 'select FILE' file
  47.                 end
  48.             else do
  49.                 /* this is the last file */
  50.                 'checkin open'
  51.                 address command 'rcs:rcs -N'symb':' file
  52.                 'select end'
  53.                 'select next'
  54.                 end
  55.             end
  56.         else do
  57.             address command 'rcs:rcs -N'symb':' file
  58.             'select next'
  59.             end
  60.         END
  61.  
  62.     'show' show_old
  63.     end
  64.